home *** CD-ROM | disk | FTP | other *** search
- on CHECKMOVERED
- global GN, GRIDV, GRIDY, GRIDH, MV, MVV, GNN, STARTED, EXITROW, MANBH, MANBY, TMP, SOND, ZZ, ZZZ, DT
- set MVV to 1
- if getAt(GRIDH, GN) = getAt(GRIDH, 1) then
- exit
- end if
- if (getAt(GRIDH, GN) = getAt(GRIDH, 1)) and (getAt(GRIDV, GN - 1) <> 0) then
- exit
- end if
- repeat while (getAt(GRIDY, GN) <> getAt(GRIDY, 140)) and (MVV = 1)
- if getAt(GRIDV, GN + 14) = 0 then
- set the locH of sprite 9 to getAt(GRIDH, GN)
- set the locV of sprite 9 to getAt(GRIDY, GN)
- updateStage()
- set the locH of sprite 9 to -50
- set the locV of sprite 9 to -50
- updateStage()
- setAt(GRIDV, GN, 0)
- set GN to GN + 14
- CHANGEREDROLL()
- set the locH of sprite 29 to getAt(GRIDH, GN)
- set the locV of sprite 29 to getAt(GRIDY, GN)
- setAt(GRIDV, GN, 3)
- if STARTED <> 0 then
- set the castNum of sprite 29 to 90
- updateStage()
- if SOND = 0 then
- puppetSound("FALL")
- end if
- updateStage()
- end if
- if STARTED <> 0 then
- set DT to 12
- COUNTTIME()
- set DT to 3
- end if
- set the castNum of sprite 29 to 4
- updateStage()
- set MV to 1
- REMOVESPRITE()
- end if
- if getAt(GRIDY, GN) = getAt(GRIDY, 14) then
- set MVV to 0
- end if
- if (MVV = 1) and (getAt(GRIDV, GN + 14) <> 0) then
- set MVV to 0
- end if
- end repeat
- if STARTED = 0 then
- set ZZ to 1
- end if
- if STARTED = 1 then
- set ZZ to 9
- end if
- if STARTED = 0 then
- set ZZZ to 36
- end if
- if STARTED = 1 then
- set ZZZ to 4
- end if
- if getAt(GRIDH, GN) = getAt(GRIDH, 1) then
- exit
- end if
- if getAt(GRIDV, GN - 1) = 0 then
- if (STARTED <> 0) and (SOND = 0) then
- puppetSound("STEP")
- end if
- set GNN to getAt(GRIDH, GN)
- repeat with i = 1 to ZZ
- if STARTED = 0 then
- set the locH of sprite 9 to GNN
- set the locV of sprite 9 to getAt(GRIDY, GN)
- updateStage()
- end if
- set GNN to GNN - ZZZ
- CHANGEREDROLL()
- set the locH of sprite 29 to GNN
- set the locV of sprite 29 to getAt(GRIDY, GN)
- updateStage()
- if STARTED = 1 then
- set DT to 2
- COUNTTIME()
- end if
- end repeat
- set the castNum of sprite 29 to 4
- set the locH of sprite 9 to -50
- set the locV of sprite 9 to -50
- setAt(GRIDV, GN, 0)
- set GN to GN - 1
- setAt(GRIDV, GN, 3)
- set MV to 1
- updateStage()
- if getAt(GRIDH, GN) = getAt(GRIDH, 1) then
- set TMP to 1
- set EXITROW to 0
- repeat with X = 1 to 10
- if GN = TMP then
- set EXITROW to X
- end if
- set TMP to TMP + 14
- if EXITROW <> 0 then
- exit repeat
- end if
- end repeat
- setAt(GRIDV, GN, 0)
- set MANBH to getAt(GRIDH, GN)
- set MANBY to getAt(GRIDY, GN)
- REMOVESPRITE()
- MOTORBLUE()
- end if
- end if
- if (GN < 136) and (GN > 1) and (STARTED <> 0) then
- if (getAt(GRIDV, GN + 14) = 2) and (getAt(GRIDV, GN - 1) = 0) then
- if SOND = 0 then
- puppetSound("BOING")
- end if
- updateStage()
- set the locH of sprite 10 to getAt(GRIDH, GN + 14)
- set the locV of sprite 10 to getAt(GRIDY, GN + 14)
- set the castNum of sprite 10 to 91
- updateStage()
- set DT to 12
- COUNTTIME()
- set the castNum of sprite 10 to 12
- updateStage()
- end if
- end if
- REMOVESPRITE()
- end
-